home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / mister mailman (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  255 lines
  1. 0 ifa=.thena=1:load"mailman.font",8,1
  2. 1 poke55,255:poke56,55:poke53272,(peek(53272)and240)or14
  3. 2 poke53248+21,.:gosub60100:clr
  4. 3 md$="[144]                                        "
  5. 4 y=.:goto1170
  6. 5 mm=.:sm=.:m1=(peek(d)and15)
  7. 20 if((11eorm1)<>15)and(a>25)thena=a-5
  8. 50 if((07eorm1)<>15)and(a<250)thena=a+5
  9. 60 if((13eorm1)<>15)and(b<225)thenb=b+5
  10. 70 if((14eorm1)<>15)and(b>150)thenb=b-5
  11. 80 if((a>38)and(a<42))thensb=1:sm=1
  12. 82 if((a>113)and(a<117))thensb=2:sm=1
  13. 84 if((a>213)and(a<217))thensb=3:sm=1
  14. 90 if(sm)and(b=150)and(mm(sb))thenmm=1:sm=.:mm(sb)=.
  15. 100 return
  16. 110 pokev+21,33:goto410
  17. 120 pokev+21,34:goto410
  18. 130 q=9:iff<255thenf=f+6:goto320
  19. 140 goto320
  20. 150 q=9:iff>154thenf=f-6:goto320
  21. 160 goto320
  22. 170 x=5:k=1:rr=4:w=8:z=3:kj=1:ee=3
  23. 180 ifkj=1orkj=3orkj=5orkj=7thengosub1250:poke56295,6
  24. 190 a=25:b=200:c=0:pokev+23,0:pokev+29,0:e=170:f=b:g=b:h=b:r=0:pokev+42,9
  25. 195 mm(1)=1:mm(2)=1:mm(3)=1
  26. 200 i=250:j=i:fort=54272to54296:poket,0:next:poke54277,100:poke54296,15
  27. 210 s=54272:pokes+6,20:pokes+5,2:pokev+30,0:pokev+37,10:d=56320:pokes+4,129
  28. 220 o=187:print"[144][146]score:";y;tab(14)"mailmen:";x:pokev+21,255:poke2040,192
  29. 222 print"press q";
  30. 224 print"to quit"
  31. 230 ifkj=4thenpokev+29,254
  32. 240 ifkj=5thenpokev+23,254:pokev+29,254
  33. 250 ifkj=6thenpokev+29,224:pokev+23,0:f=160
  34. 260 ifkj=7thenpokev+44,0:f=150
  35. 270 aa=a:vj=vj+1:if(mm)thenmm=.:goto490
  36. 272 geta$:ifa$="q"ora$="[209]"thengosub60000
  37. 275 gosub5
  38. 276 geta$:ifa$="q"ora$="[209]"thengosub60000
  39. 280 pokes+1,3:pokes,o
  40. 290 pokev+30,.:pokev+6,i:pokev+10,j:pokev+7,e:pokev+11,f:ifj<12thenj=j+240
  41. 300 pokes,.:pokes+1,.:i=i-rr:ifb<ethene=e-ee
  42. 310 q=int(rnd(1)*z)+1:j=j-w:ifb>ethene=e+ee
  43. 320 onqgoto130,150,150,150:wait653,1,1:ifi<10theni=i+240
  44. 330 n=peek(v+30):if(nand1)=1andvj>9then610
  45. 340 ifaa>athenpoke2040,193
  46. 350 ifaa<athenpoke2040,192
  47. 360 pokev+0,a:pokev+1,b:goto270
  48. 370 vl=.:kj=kj+1:ifkj=2thenrr=6:w=10:z=5:gosub1480
  49. 380 ifkj=3thenrr=8:w=6:z=6
  50. 390 ifkj=4thenrr=2:w=8:gosub1480
  51. 400 ifkj=5thenrr=2
  52. 410 ifkj=6thenz=100:gosub1480
  53. 420 ifkj=7thenee=1:rr=12
  54. 430 ifkj=8thenrr=1:w=1:ee=1:gosub1480
  55. 440 ifkj=9then460
  56. 450 goto180
  57. 460 print"8 screen bonus!!!"
  58. 470 jv=1:pokes+1,37:pokes,42:gosub1010:kj=1:goto170
  59. 490 y=y+kj*100:fort=54272to54296:poket,0:next
  60. 500 ifa=40thenpokes+1547,9
  61. 510 ifa=115thenpokes+1556,9
  62. 520 ifa=215thenpokes+1569,9
  63. 530 print"[144][146]score:"y;tab(14)"mailmen:";x
  64. 540 s=54272:poke54296,15:pokes+5,200:pokes+6,100:pokes+1,35:pokes,3
  65. 550 pokes+4,33:fort=1to100:next:pokes+4,129
  66. 560 fort=1to30:next:pokes,0:pokes+1,0:vl=vl+a
  67. 570 ifvl=370then890
  68. 580 ifvl<>40andvl<>115andvl<>215andvl<>155andvl<>255andvl<>330then600
  69. 590 poke54296,9:goto280
  70. 600 pokev+37,2
  71. 610 vj=0:forl=54272to54296:pokel,0:next
  72. 620 fort=19to16step-1:pokes+6,100:pokes+5,100:poke2040,192
  73. 630 pokes+24,15:iftl=17thentl=195
  74. 640 iftl=16thentl=195
  75. 650 pokes+24,15:ift=19thentl=239
  76. 660 pokes+4,17:ift=18thentl=209
  77. 670 pokes+1,t:pokes,tl:fortt=1to50:next:pokes,0:pokes+1,0:fortt=1to30
  78. 680 next:poke2040,193:pokes+6,100:pokes+5,100:pokes+1,39:pokes,223
  79. 690 fortt=1to50:next:pokes,0:pokes+1,0:fortt=1to30:next:next:vl=0
  80. 700 rem oops!
  81. 710 poke2040,194:pokes+1,4:pokes,48:pokes+4,33:fortt=1to50:next
  82. 720 pokes+1,0:pokes,0:x=x-1:fortt=1to500:next:ifx=0then760
  83. 730 goto820
  84. 740 print"[144]score:";y;tab(14)"mailmen:";x
  85. 750 pokev+21,0:onkjgoto180,65535
  86. 760 print"                 game  [157][157][157][157][157][157]over"
  87. 770 print"[147][144]";
  88. 775 print"         final score:";y
  89. 780 print"        you made it to screen";kj
  90. 790 print" would you like to play again?  (y/n)"
  91. 800 pokev+21,0:fort=1to100:geta$:next
  92. 810 geta$:ifa$<>"n"anda$<>"[206]"anda$<>"y"anda$<>"[217]"then810
  93. 812 ifa$="y"ora$="[217]"thenprint:gosub60190:goto3
  94. 814 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  95. 816 pokev+21,.:print"[147]";:ifer<>63thenend
  96. 818 poke53272,21:poke55,0:poke56,160
  97. 819 load "hello connect",8
  98. 820 vj=.:jv=1:fort=stos+24:poket,0:next
  99. 830 pokes+24,9:pokes+5,1:pokes+6,255:fort=1to4:pokes+1,71
  100. 840 pokes,12:pokes+4,33:pokes+1,1:pokes,12:pokes+4,128:fortt=1to50:next
  101. 850 ift<3theni=i-2:j=j-2:pokev+6,i:pokev+10,j:pokev+7,e:pokev+11,f
  102. 860 ift>2theni=i+2:j=j+2:pokev+6,i:pokev+10,j:pokev+7,e:pokev+11,f
  103. 870 pokes+1,.:pokes,.:tr=int(rnd(1)*5)*100:fortl=1totr:next:next
  104. 880 goto180
  105. 890 onkjgoto900,1060,900,1060,900,1060,900,1060,900,1060,900,1060
  106. 900 restore:pokes+24,15:pokes+5,100:pokes+6,100:fort=1to9:readtt,tu,tv
  107. 910 pokes,tt:pokes+1,tu:pokes+4,17:fortw=1totv:next:pokes+4,33
  108. 920 fortw=1totv:next:pokes+1,.:pokes,.:next
  109. 930 forl=54272to54296:pokel,0:next:pokes+24,15
  110. 940 pokes+5,25:pokes+6,255
  111. 950 fort=1to5:pokes+1,106:pokes,115:pokes+4,17
  112. 960 fortt=1to100:next:pokes+1,.:pokes,.
  113. 970 fortt=1to99:next:y=y+kj*50:print"[144]score:";y:fortr=1to150:next:next
  114. 980 ifvj<150andjv=0then1000
  115. 990 jv=.:goto370
  116. 1000 fort=1to300:next:print"time bonus!!!":pokes+1,238:pokes,248
  117. 1010 pokes+5,200:pokes+6,200:pokes+4,33:fort=1to600:next:pokes+1,0:yy=y
  118. 1020 fort=1toyy+200-vjstep100:y=y+1:print"[144]score:";y:next:fort=1to300:next:jv=.
  119. 1025 poke54296,.:next
  120. 1030 ifkj=9thenreturn
  121. 1040 goto370
  122. 1050 s=54272
  123. 1060 restore:fort=1to9:readtt,tu,tv:next
  124. 1070 forl=stos+24:pokel,0:next:pokes+24,15:pokes+5,100:pokes+6,100
  125. 1080 fort=1to5:readtt,tu,tv:pokes+1,tt:pokes,tu
  126. 1090 fortl=1totv:pokes+4,33:next
  127. 1100 fortl=1to20:pokes+4,17:next
  128. 1110 next:pokes,.:pokes+1,.
  129. 1120 goto370
  130. 1130 fort=1to99999:next
  131. 1140 stop
  132. 1150 pokev+21,0
  133. 1160 stop
  134. 1170 rem title screen stuff
  135. 1180 tt=192:fort=2040to2047:poket,tt:tt=tt+1:next
  136. 1190 restore:forj=1to42:readx:next
  137. 1200 v=53248:poke2040,192:poke2041,193:forj=12288to12734
  138. 1210 readx:pokej,x:next:fort=42to45:pokev+t,9:next
  139. 1220 pokev+39,6:pokev+40,6:pokev+41,6:pokev+28,7
  140. 1230 pokev+37,10:pokev+38,9:forj=12288to12478:readx:pokej,x:next:goto170
  141. 1240 pokev+21,31:goto170
  142. 1250 poke53265,11:poke53281,14:poke53280,6:print"[147]":pokev+21,0
  143. 1260 print"[147][155][169][223]"
  144. 1270 print"[155][169]  [223]"
  145. 1280 print"[149][169][223]=[155][169]    [223]"
  146. 1290 print"[149][169]  [223]=[155][169]      [223]"
  147. 1300 print"[149][169]    [223]==[155]       [223]"
  148. 1310 print"[149][169]      [223]==       "
  149. 1320 print"[149][169]        [223][146][151][169]   [223]=[146][149]== [255][255]    "
  150. 1330 print"[149][129]        [146][149][151][169]     =[146]==[192][192][192][192][192][192][192]"
  151. 1340 print" [129] [255][129]  [255][129]      [151]          ==    [255][255]          ";
  152. 1350 print" [129][192][192][192][192][192][192][192][192]    [156]         ==[192][192][192][192][192][192][192]        ";
  153. 1360 print"  [129]     [149][220][129]      [156]  [155][220][156]     ===     [151][220]         ";
  154. 1370 print"  [129]     [149][168][129]      [156]  [155][168][156]     ===     [151][168]        ";
  155. 1380 print"                                        ";
  156. 1390 print"     *        *            *              ";
  157. 1400 print"[155]   ^        ^            ^              ";
  158. 1410 print"[144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"md$md$;
  159. 1413 print"[144]  [164][164][164]  [164][164][164]  [164][164][164]  [164][164][164]  [164][164][164]  [164][164][164]  [164][164][164]  [164][164][164]";
  160. 1414 print"[144]  [163][163][163]  [163][163][163]  [163][163][163]  [163][163][163]  [163][163][163]  [163][163][163]  [163][163][163]  [163][163][163]"md$md$md$;
  161. 1420 print"[155]                                        ";
  162. 1430 print"[155]                                       ";
  163. 1440 poke2023,160:poke56295,2:print"";
  164. 1450 fort=1to24:print"        ";
  165. 1460 next:print"       ";
  166. 1470 poke53265,27:return
  167. 1480 poke53281,14:poke53280,6:poke53265,11
  168. 1490 print"[147][155][169][223]"
  169. 1500 print"[155]  [151]  [156][169]   [223]"
  170. 1510 print"[155][169]  [223][151][169]  [223][156][169]     [223]"
  171. 1520